h2 {
  background: linear-gradient(to right, #286040, #7CB787, #80A848, #B6CCA5);
      -webkit-text-fill-color: transparent;
      -webkit-background-clip: text;
  font-family: Monaco
}
body {
  background-color: #CCD7DB
}
p {
  font-family: 'Indie Flower', cursive;
}

GitHub repository information

I have done Part A and upload it on Github, you can find it here or you can copy the link and paste in the browser https://github.com/ChaseCai0121/stats220.

In part one, I made a meme by R and show it in the index.md. I also write the README.md to introduce the repo to ones who check my Github by chance.

Animated GIF creation

library(tidyverse)
library(magick)
# first meme
go_to_work <- image_read("https://i.stack.imgur.com/FxJvk.jpg") %>% 
  image_resize("500x500!")

# second meme
off_work <- image_read("https://i.pinimg.com/564x/fb/56/8b/fb568b7b5f90042304051c311233abe2.jpg") %>% 
  image_resize("500x500!")

# first text
             # the box
work_text <- image_blank(width = 500, height = 500, # size
                       color = "#000000") %>%  # filling color
  # the text
  image_annotate(text = "On my way\nto work", # text content
                 color = "#FFFFFF", # text color
                 size = 80, # text size
                 font = "Impact", # text font
                 gravity = "center") # text loction

# second text
off_text <- image_blank(width = 500, 
                        height = 500, 
                        color = "#FFFFFF") %>% 
  image_annotate(text = "On my way\noff work", 
                 color = "#000000", 
                 size = 80, 
                 font = "Impact", 
                 gravity = "center")

frame <- c(work_text, go_to_work, off_text, off_work)

(work_gif_1 <- image_animate(frame, fps = 2))

(work_gif_2 <- image_morph(frame) %>% 
  image_animate(fps = 100))

Learning reflection